home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TPEX.ZIP / C7REVEX3.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-04  |  2KB  |  69 lines
  1. {
  2. Programming in Turbo Pascal 6.0
  3. Chapter 7 Review Exercise #3 from
  4. the book "Turbo Pascal By Example"
  5. by Greg Perry.
  6. Code by: Robert E. Wade     9-3-93
  7. }
  8.  
  9. PROGRAM C7RevEx3;
  10.  
  11. USES Crt;
  12.  
  13. CONST  Spc           = ' ';
  14.        c1            = 15;
  15.        c2            = 15;
  16.  
  17. VAR    Pers1Wgt:     BYTE;
  18.        Pers1Age:     BYTE;
  19.        Pers2Wgt:     BYTE;
  20.        Pers2Age:     BYTE;
  21.        Pers3Wgt:     BYTE;
  22.        Pers3Age:     BYTE;
  23.        WgtAvg:       REAL;
  24.        AgeAvg:       REAL;
  25.        TotWgt:       INTEGER;
  26.        TotAge:       BYTE;
  27. BEGIN
  28.  
  29.          { Initialize variables }
  30.  
  31. Pers1Wgt := 150;
  32. Pers1Age := 20;
  33. Pers2Wgt := 180;
  34. Pers2Age := 32;
  35. Pers3Wgt := 110;
  36. Pers3Age := 16;
  37.  
  38.    CLRSCR;
  39.  
  40.         { Display column headers }
  41.  
  42.    WRITELN( 'Weight':c1, 'Age':c2 );
  43.    WRITELN( '------':c1, '---':c2 );
  44.  
  45.         { Display data in respective columns }
  46.  
  47.    WRITELN( Pers1Wgt:c1, Pers1Age:c2 );
  48.    WRITELN( Pers2Wgt:c1, Pers2Age:c2 );
  49.    WRITELN( Pers3Wgt:c1, Pers3Age:c2 );
  50.    WRITELN;
  51.    WRITELN;
  52.  
  53.         { Calculate Averages }
  54.  
  55.    WgtAvg := (Pers1Wgt + Pers2Wgt + Pers3Wgt) / 3;
  56.    AgeAvg := (Pers1Age + Pers2Age + Pers3Age) / 3;
  57.  
  58.         { Calculate Totals }
  59.  
  60.    TotWgt := Pers1Wgt + Pers2Wgt + Pers3Wgt;
  61.    TotAge := Pers1Age + Pers2Age + Pers3Age;
  62.  
  63.         { Display Averages and Totals }
  64.  
  65.    WRITELN( 'The Average Weight is: ', WgtAvg:5:2 );
  66.    WRITELN( 'The Average Age is: ', AgeAvg:5:2 );
  67.    WRITELN( 'The Total Weight is: ', TotWgt );
  68.    WRITELN( 'The Total Age is: ', TotAge );
  69. END.